Sub 부서데이터복사()

    Range("B4").AutoFilter
    ActiveSheet.Range("$B$4:$E$47").AutoFilter Field:=1, Criteria1:="인사부"
    Range("C9:E47").Copy Sheets("인사부").Range("B3")
    Sheets("sample").Select
    Selection.AutoFilter
    Range("C2").Select

End Sub